﻿Public Class ClubBuscar

    Dim consulta As New consultas

    Private Sub ClubBuscar_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'TPI_PAVDataSet.club' Puede moverla o quitarla según sea necesario.
        Me.ClubTableAdapter.Fill(Me.TPI_PAVDataSet.club)

        Me.dgv_club.DataSource = consulta.Consultar("club")

    End Sub


    Private Sub dgv_club_CellDoubleClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_club.CellDoubleClick
        frmClub.idInfo = dgv_club.Rows(e.RowIndex).Cells(0).Value
        frmClub.txtNombreClub.Text = dgv_club.Rows(e.RowIndex).Cells(1).Value
        frmClub.txtCuit.Text = dgv_club.Rows(e.RowIndex).Cells(2).Value
        frmClub.id_direInfo = dgv_club.Rows(e.RowIndex).Cells(3).Value
        frmClub.dtpFechaFundacion.Text = dgv_club.Rows(e.RowIndex).Cells(4).Value
        frmClub.cmbEstadoCancha.Text = dgv_club.Rows(e.RowIndex).Cells(5).Value
        frmClub.cmbTipoPiso.Text = dgv_club.Rows(e.RowIndex).Cells(6).Value

        Dim direResultado As New Data.DataTable

        direResultado = consulta.ConsultarTablaXId("direccion", dgv_club.Rows(e.RowIndex).Cells(3).Value)

        frmClub.txtCalle.Text = direResultado.Rows(0)(1)
        frmClub.txtNro.Text = direResultado.Rows(0)(2)
        frmClub.txtCodPostal.Text = direResultado.Rows(0)(3)
        frmClub.txtDpto.Text = direResultado.Rows(0)(4)
        frmClub.txtPiso.Text = direResultado.Rows(0)(5)
        frmClub.habilitaTextbox(True)
        frmClub.habilitaBotones(False)
        Me.Hide()
        

    End Sub


End Class